home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / Rtn / GetString < prev    next >
Encoding:
Text File  |  1999-11-24  |  686 b   |  42 lines
  1. G4C
  2.  
  3. ; GetString
  4. ; Get a string from user & pass it to $gui $rtn given
  5.  
  6. ; Use :
  7. ; GUILOAD GUIS:TOOLS/RTN/GETSTRING Title StartingString Gui Routine
  8.  
  9. WINBIG 65 109 448 22 ""
  10. WinType 11110010
  11. resinfo 8 640 256
  12. BOX 0 0 0 0 out button
  13.  
  14. xonload title string gui rtn
  15.     gosub getstring startup
  16.  
  17. xonreload title string gui rtn
  18.     gosub getstring startup
  19.  
  20. xRoutine startup
  21.     guiopen getstring
  22.     setwintitle getstring '$title'
  23.     update getstring 1 $string
  24.     setgad getstring 1 ON
  25.  
  26. xonclose
  27.     if $string > ' '
  28.        gosub $gui $rtn '$getstring/string'
  29.     endif
  30.     ; guiquit getstring
  31.  
  32. XTEXTIN 3 3 409 17 "" string "" 150
  33.     gadid 1
  34.     guiclose #this
  35.  
  36. XBUTTON 414 3 28 17 "Ok"    ; finished editing
  37.     guiclose #this
  38.  
  39.  
  40.  
  41.  
  42.